home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
cross
/
GBDK-2.0.lha
/
GBDK
/
lib
/
get_bk_t.s
< prev
next >
Wrap
Text File
|
1998-10-01
|
339b
|
27 lines
.include "global.s"
.globl .get_xy_btt
.area _CODE
_get_bkg_tiles::
PUSH BC
LDA HL,4(SP) ; Skip return address and registers
LD D,(HL) ; D = x
INC HL
LD E,(HL) ; E = y
LDA HL,9(SP)
LD B,(HL) ; BC = tiles
DEC HL
LD C,(HL)
DEC HL
LD A,(HL-) ; A = h
LD H,(HL) ; H = w
LD L,A ; L = h
CALL .get_xy_btt
POP BC
RET